home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CHK75.SRC < prev    next >
Text File  |  1990-11-03  |  30KB  |  1,183 lines
  1. ;\|
  2. ;CHK75.SRC     Translated from CHK75.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CHECK_UP 00:34:27 AM   3/ 5/90   |
  4. DO_DEFINES:
  5.     define(FLAG|A|1||)
  6.     define(fld_lctr|N|2||)
  7.     define(ISITCLIN|A|1||)
  8.     define(MEM_EYES|A|5||)
  9.     define(MEM_EARS|A|4||)
  10.     define(MEM_MOBIL|A|5||)
  11.     define(MEM_MEM|A|4||)
  12.     define(MEM_BOWELS|A|4||)
  13.     define(CTR6|N|2||)
  14.     define(MEM_BLAD|A|4||)
  15.     define(MEM_HOUSE|A|12||)
  16.     define(YES.NO|A|1||)
  17.     define(TICK|A|1||5)
  18.     define(CTR3|N|1||)
  19.     define(MEM_NAME_CHK|A|27||)
  20.     define(PROC4|A|1||)
  21.     define(REF_CTR|N|2||)
  22.     define(MEM_DOC2|N|1||)
  23.     define(CON_CTR|N|2||)
  24.     define(EXTRAS|N|3||)
  25.     define(CON_NUM|N|3||)
  26.     define(CLIN_NUM|N|3||)
  27.     define(EMERG_NUM|N|3||)
  28.     define(ISIT_EMER|A|1||)
  29.     define(MEM_DOC|A|1||)
  30.     define(NY|A|1||)
  31.     define(AGE|N|2||)
  32.     define(BP_DROP|N|2||)
  33.     define(MEM_CTR|N|1||)
  34.     define(FBS_ADD|N|5|2|)
  35.     define(MEM_BP_AGE|N|3||)
  36.     define(AOD|A|1||15)
  37.     define(TD|S|8||)
  38.     define(MN|A|30||15)
  39.     define(DO|A|8||15)
  40.     define(QU|A|10||15)
  41.     define(DS|A|30||15)
  42.     define(QTY|N|3||15)
  43.     define(ISN|N|3||15)
  44.     define(CTR|N|2||)
  45.     define(CTR2|N|2||)
  46.     define(LNE.LNGTH|N|2||)
  47.     define(OK|A|1||)
  48.     define(LNE.LN2|N|2||)
  49.     define(NUM.MSG|N|2||)
  50.     define(MESSAGE|A|78||15)
  51.     define(ENT.MASK|A|10||)
  52.     define(LLC|N|2||)
  53.     define(WD|N|2||)
  54.     define(HT|N|2||)
  55.     define(MCNTR|N|5||)
  56.     define(MCNTR2|N|5||)
  57.     define(MCNTR3|N|5||)
  58.     define(MCNTR4|N|5||)
  59.     define(MEM_DIAB|A|1||)
  60.     define(MEM_NEW|A|1||)
  61.     define(MEM_BP|A|1||)
  62.     define(MEM_THY|A|1||)
  63.     define(MEM_OLD|A|1||)
  64.     define(MEM_RECD|S|8||)
  65.     define(MEM_RECT|S|8||)
  66.     define(MEM_RECB|S|8||)
  67. OPEN_FILES:
  68.     open(PATIENT||0|)
  69.     open(DIABETIC||0|)
  70.     open(RP||0|)
  71.     open(RECALLS||0|)
  72.     open(REFER||0|EXIT)
  73.     open(PROCEDE||1|EXIT)
  74.     open(MEMORY||0|EXIT)
  75.     open(GPSETUP||0|EXIT)
  76. STARTCHK:
  77.     trap(S|G|SAVE_RECS)
  78.     trap(D|I)
  79.     trap(C|G|CLR_RECS)
  80.     trap(Q|G|EXIT)
  81.     trap(J|I)
  82. MOUNT_SCRS:
  83.     mount(SCREEN2|S||)
  84.     CHECK_TYPE = (2)
  85.     pmsg("F1 - Help  F2 - Memo"|1|24|N|N|S|)
  86.     date(TD|G)
  87. START_UP:
  88.     trap(J|I)
  89.     MEM_OLD = ("Y")
  90. PAT.NAME:
  91.     clrlne(1|22)
  92.     enter(PATIENT.NAME||||||||)
  93.     find(G|PATIENT.NAME|PAT.NAME|)
  94.     DIAB_REF = (RECORD.NUMBER)
  95.     find(M|DIAB_REF|NO_DIABX|)
  96. NO_DIAB:
  97.     goto STARTALL
  98. NO_DIAB2:
  99.     gosub GET_AGE
  100.     trap(%|I)
  101.     trap(U|I)
  102.     saves(10)
  103.     window(20|12|2|35)
  104.     ISITCLIN = ("")
  105.     pmsg("Is this a clinic or update?"|1|1|N|N|S|)
  106.     enter(ISITCLIN|"YN"|||Y|Y|N|30|1|N)
  107.     if ISITCLIN = ("Y") then CHECK_DATE = (TD)
  108.     trap(%|D)
  109.     trap(U|D)
  110.     redsp(10)
  111.     enter(CHECK_DATE||||N|Y|N|||N)
  112.     enter(CHECK_OP||||Y|Y|N|||N)
  113.     if CHECK_OP = ("") reent
  114.     enter(CHK_DOC|"1234"|||N|Y|N|||N)
  115.     enter(DOC_BP1|"1234567890"|||N|Y|N|||N)
  116.     enter(DOC_BP2|"1234567890"|||N|Y|N|||N)
  117.     if DOC_BP1 > (0) then MEM_BP = ("Y")
  118. NO_DIAB3:
  119.     FLAG = ("X")
  120.     trap(J|G|RUN_MEMO)
  121.     enter(ONOWN|"YN "|ONOWN_HLP||Y|Y|N|||N)
  122.     enter(EYES|" OPSB"|EYES_HLP||Y|Y|N|||N)
  123.     enter(EARS|" ODA"|EARS_HLP||Y|Y|N|||N)
  124.     enter(WALK||WALK_HLP||N|Y|N|||N)
  125.     enter(MOBILITY|"GPWB"|MOBIL_HLP||Y|Y|N|||N)
  126.     enter(UP|" YN"|UP_HLP||Y|Y|N|||N)
  127.     enter(MEMORY|" GPBD"|MEM_HLP||Y|Y|N|||N)
  128.     enter(BOWELS|" OCIDS"|BOWELS_HLP||Y|Y|N|||N)
  129.     enter(BLADDER|" CIA"|BLAD_HLP||Y|Y|N|||N)
  130.     enter(MEDIC|"YN"|MEDIC_HLP||Y|Y|N|||N)
  131.     enter(HOME_HELP|"YNR "|HOME_HLP||Y|Y|N|||N)
  132.     enter(MEALS|"YNR "|MEALS_HLP||Y|Y|N|||N)
  133.     enter(NURSE|"YNR "|NURSE_HLP||Y|Y|N|||N)
  134.     enter(HOUSE|"H3NFO "|HOUSE_HLP||Y|Y|N|||N)
  135.     enter(SMOK||SMOK_HLP||N|Y|N|||N)
  136.     if SMOK > (0) gosub SMOK_MSG
  137.     enter(EXERCISE||EX_HLP||N|Y|N|||N)
  138.     enter(ALCOHOL||ALC_HLP||N|Y|N|||N)
  139.     enter(ANGINA||ANG_HLP||N|Y|N|||N)
  140.     enter(DIET|"GB "|DIET_HLP||Y|Y|N|||N)
  141.     enter(WT1||||N|Y|N|||N)
  142.     enter(WT2||||N|Y|N|||N)
  143.     IDEAL_WT = (WT2-81*0.85)
  144.     if WT1 > (IDEAL_WT) gosub WEIGHT
  145.     enter(PROT|" T+"|||N|N|N|||N)
  146.     if PROT => ("+") gosub REF_PROT
  147.     enter(SUG||SUG_HLP||N|N|N|||N)
  148.     if SUG > (0.25) gosub REF_SUG
  149.     enter(BP_CHECK_NUM|" 123"|||N|Y|N|||N)
  150.     enter(BP1||||N|Y|N|||N)
  151.     enter(BP2||||N|Y|N|||N)
  152.     enter(BP1S||BPST_HLP||N|Y|N|||N)
  153.     gosub BP_CHECK
  154.     enter(PULSE||||N|Y|N|||N)
  155.     enter(REG|" YN"|REG_HLP||Y|Y|N|||N)
  156.     if REG = ("N") then enter(APEX||||N|Y|N|||N)
  157.     enter(FEV||||N|Y|N|||N)
  158.     enter(COMMENT1||||Y|Y|N|||N)
  159.     enter(COMMENT2||||Y|Y|N|||N)
  160.     gosub DRUGSCH
  161.     enter(DRUGS_CHECKED|"NY"|||Y|Y|N|||N)
  162.     enter(REF_CHECK|"NY"|||Y|Y|N|||N)
  163.     NEXT_CHECK = (CHECK_DATE+186)
  164.     enter(NEXT_CHECK||||N|Y|N|||N)
  165.     YES.NO = ("")
  166.     enter(YES.NO|"YN"|||Y|Y|N|||N)
  167.     if YES.NO = ("Y") gosub PRINT
  168. SAVE_RECS:
  169.     if RECORD.NUMBER = (0) goto PAT.NAME
  170. SAVE_DONE:
  171.     DIAB_REF = (RECORD.NUMBER)
  172.     CHECK_TYPE = (2)
  173.     save(DIABETIC|N|Y)
  174.     find(M|RECORD.NUMBER|EXIT|)
  175.     VISIT = ("V")
  176.     save(PATIENT|N|Y)
  177.     if FLAG = ("Y") then run("recmenu")
  178.     FLAG = ("")
  179. STARTX:
  180.     MEM_DIAB = ("")
  181.     MEM_NEW = ("")
  182.     MEM_BP = ("")
  183.     MEM_THY = ("")
  184.     MEM_CTR = (0)
  185.     MEM_RECD = (0)
  186.     MEM_NAME_CHK = ("")
  187.     MEM_RECT = (0)
  188.     MEM_CTR = (0)
  189.     MEM_OLD = ("")
  190.     MEM_RECB = (0)
  191.     AGE = (0)
  192.     BP_DROP = (0)
  193.     FBS_ADD = (0)
  194.     MEM_BP_AGE = (0)
  195.     for(CTR|12|23|1)
  196.         {
  197.         clrlne(1|CTR)
  198.         }
  199.     pmsg("F1 - Help  F2 - Memo  [Ctrl-Y]- Print"|1|24|N|N|S|)
  200.     clr(PATIENT|B)
  201.     goto START_UP
  202. DEL_RECS:
  203.     del(DIABETIC|Y|)
  204.     clr(PATIENT|B)
  205.     goto STARTX
  206. CLR_RECS:
  207.     clr(PATIENT|B)
  208.     clr(DIABETIC|B)
  209.     goto STARTX
  210. EXIT:
  211.     if FLAG = ("X") do
  212.         {
  213.         FLAG = ("Y")
  214.         goto SAVE_DONE
  215.         }
  216.     run("recmenu")
  217. PRT.MSG:
  218.     LNE.LNGTH = (0)
  219.     for(MCNTR|1|NUM.MSG|1)
  220.         {
  221.         LNE.LN2 =siz(A|MESSAGE[MCNTR])
  222.         if LNE.LN2 > (LNE.LNGTH) then LNE.LNGTH = (LNE.LN2)
  223.         }
  224.     NUM.MSG = (NUM.MSG + 1)
  225.     if LNE.LNGTH < (26) then LNE.LNGTH = (26)
  226.     LNE.LNGTH = (LNE.LNGTH + 4)
  227.     LLC = (40 - (LNE.LNGTH / 2))
  228.     HT = (NUM.MSG + 3)
  229.     WD = (LNE.LNGTH + 1)
  230.     saves(1)
  231.     window(LLC|24|HT|WD)
  232.     NUM.MSG = (NUM.MSG - 1)
  233.     pmsg(""||||||)
  234.     for(MCNTR|1|NUM.MSG|1)
  235.         {
  236.         pmsg(MESSAGE[MCNTR]|3||N|N|S|)
  237.         }
  238.     pmsg("Press any key to continue"|3||Y|N|S|)
  239.     redsp(1)
  240.     ret
  241. NO_DIABX:
  242.     clr(DIABETIC|B)
  243.     MESSAGE[1] = ("NO CHECK UP RECORD FOR THIS PATIENT")
  244.     NUM.MSG = (1)
  245.     gosub PRT.MSG
  246.     goto NO_DIAB
  247. SEEALL:
  248. STARTALL1:
  249. STARTALL:
  250.     if RECORD.NUMBER = (0) goto ENDIT
  251.     COD.REF = (RECORD.NUMBER)
  252.     find(M|COD.REF|NEXTALL2|)
  253.     MEM_RECD = (COD.D[4])
  254.     MEM_RECT = (COD.D[6])
  255.     MEM_RECB = (COD.D[9])
  256. NEXTALL2:
  257.     RP.REF = (RECORD.NUMBER)
  258.     find(M|RP.REF|ENDITX|)
  259.     CTR = (1)
  260. TESTALL:
  261.     if CTR = (12) goto ENDIT
  262.     AOD[CTR] = (AUTO.ON.DEMAND)
  263.     MN[CTR] = (MEDICATION)
  264.     DO[CTR] = (DOSE)
  265.     QU[CTR] = (QUANTITY)
  266.     DS[CTR] = (DIRECTIONS)
  267.     QTY[CTR] = (RP.DISP.QTY)
  268.     ISN[CTR] = (ISSUE.NO)
  269.     trim(MN[CTR]|T)
  270.     trim(QU[CTR]|T)
  271.     just(QU[CTR]|L)
  272.     trim(DO[CTR]|T)
  273.     just(DO[CTR]|L)
  274.     trim(DS[CTR]|T)
  275.     just(DS[CTR]|L)
  276.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  277.     CTR2 = (CTR+11)
  278.     find(N|RP|ENDIT|)
  279.     if RP.REF <> (RECORD.NUMBER) goto ENDIT
  280.     CTR = (CTR+1)
  281.     goto TESTALL
  282. CLEARXALL:
  283.     clr(RP|B)
  284.     clr(RECALLS|B)
  285.     clrmem(AOD|15)
  286.     clrmem(MN|15)
  287.     clrmem(DO|15)
  288.     clrmem(QU|15)
  289.     clrmem(DS|15)
  290.     clrmem(QTY|15)
  291.     clrmem(ISN|15)
  292.     ret
  293. ENDIT:
  294.     find(M|RECORD.NUMBER|PAT.NAME|)
  295.     DIAB_REF = (RECORD.NUMBER)
  296.     find(M|DIAB_REF|NO_DIAB2|)
  297.     goto NO_DIAB2
  298. ENDITX:
  299.     MESSAGE[1] = ("NO DRUGS ON REPEAT")
  300.     NUM.MSG = (1)
  301.     gosub PRT.MSG
  302.     goto ENDIT
  303. GET_AGE:
  304.     AGE = (TD-DATE.OF.BIRTH/365)
  305.     ret
  306. BP_CHECK:
  307.     if MEM_BP = ("Y") do
  308.         {
  309.         if BP_CHECK_NUM => (2) do
  310.             {
  311.             if BP1 > (DOC_BP1) gosub REFER_BP
  312.             if BP2 > (DOC_BP2) gosub REFER_BP
  313.             BP_DROP = (BP1-BP1S)
  314.             if BP_DROP > (20) gosub REFER_BP
  315.             }
  316.         ret
  317.         }
  318.     else
  319.         {
  320.         if BP_CHECK_NUM = (2) do
  321.             {
  322.             if BP1 > (AGE+110) gosub REFER_BP
  323.             }
  324.         if BP2 > (105) gosub REFER_BP
  325.         BP_DROP = (BP1-BP1S)
  326.         if BP_DROP > (20) gosub REFER_BP
  327.         }
  328.     ret
  329. SMOK_HLP:
  330.     MESSAGE[1] = ("Number per day eg 16")
  331.     NUM.MSG = (1)
  332.     gosub PRT.MSG
  333.     ret
  334. SMOK_MSG:
  335.     MESSAGE[1] = ("There is a risk of cancer,heart disease,gangrene,and bronchitis")
  336.     NUM.MSG = (1)
  337.     gosub PRT.MSG
  338.     ret
  339. REF_PROT:
  340.     MESSAGE[1] = ("If there is more than a trace -send sample for orgs and sens.")
  341.     MESSAGE[2] = ("Refer to Dr if protein persists etc")
  342.     NUM.MSG = (2)
  343.     gosub PRT.MSG
  344.     ret
  345. SUG_HLP:
  346.     MESSAGE[1] = ("Enter sugar in urine as a decimal eg 1/4 = .25")
  347.     NUM.MSG = (1)
  348.     gosub PRT.MSG
  349.     ret
  350. REF_SUG:
  351.     MESSAGE[1] = ("Do a blood sugar.If high refer to Dr.")
  352.     MESSAGE[2] = ("If patient is a diabetic refer to Dr if more than a third of tests over .25")
  353.     NUM.MSG = (2)
  354.     gosub PRT.MSG
  355.     ret
  356. REG_HLP:
  357.     MESSAGE[1] = ("Enter a Y if regular or a N if not. Do apical rate if N")
  358.     NUM.MSG = (1)
  359.     gosub PRT.MSG
  360.     ret
  361. REFER_BP:
  362.     MESSAGE[1] = ("There is a definate BP problem here - refer to Dr.")
  363.     NUM.MSG = (1)
  364.     REF_CHECK = ("Y")
  365.     gosub PRT.MSG
  366.     ret
  367. BPST_HLP:
  368.     MESSAGE[1] = ("Enter standing systolic - It should not drop more than 20")
  369.     NUM.MSG = (1)
  370.     gosub PRT.MSG
  371.     ret
  372. DIET_HLP:
  373.     MESSAGE[1] = ("G = Good diet B = Bad diet ")
  374.     NUM.MSG = (1)
  375.     gosub PRT.MSG
  376.     ret
  377. EX_HLP:
  378.     MESSAGE[1] = ("Enter a number for hours per week exercise")
  379.     NUM.MSG = (1)
  380.     gosub PRT.MSG
  381. DRUGSCH:
  382.     MESSAGE[1] = ("NOW CHECK THE DRUGS")
  383.     NUM.MSG = (1)
  384.     gosub PRT.MSG
  385.     mount(DRUGSCR|S)
  386.     RP.REF = (RECORD.NUMBER)
  387.     find(M|RP.REF|NOSCR|)
  388.     CTR = (17)
  389. NEXTRPS:
  390.     trim(MEDICATION|T)
  391.     if CTR = (29) do
  392.         {
  393.         pmsg("There are more drugs"|65|20|N|N|D|)
  394.         goto NOSCR
  395.         }
  396.     if CTR => (23) do
  397.         {
  398.         CTR6 = (CTR-6)
  399.         pmsg(MEDICATION|31|CTR6|N|N|D|)
  400.         }
  401.     else
  402.         {
  403.         pmsg(MEDICATION|1|CTR|N|N|D|)
  404.         }
  405.     CTR = (CTR+1)
  406.     find(N|RP|NOSCR|)
  407.     if RP.REF <> (RECORD.NUMBER) goto NOSCR
  408.     goto NEXTRPS
  409. NOSCR:
  410.     enter(COMMENT1|||NOSCR|Y|Y|N|||N)
  411.     enter(COMMENT2||||Y|Y|N|||N)
  412.     mount(SCREEN2|S)
  413.     ret
  414. NOCOD:
  415.     COD.PAT.NAME = (PATIENT.NAME)
  416.     COD.REF = (RECORD.NUMBER)
  417.     save(RECALLS|N|N)
  418.     find(M|COD.REF||)
  419.     goto SAVE_RECS
  420. RUN_MEMO:
  421.     goto RUN_MEMOX
  422. RUN_MEMOX:
  423.     trap(J|G|EXIT_MEM)
  424.     trap(S|G|SAVE_MEMO)
  425.     trap(D|I)
  426.     trap(C|I)
  427.     trap(Q|G|EXIT_MEM)
  428.     trap(L|G|EXIT_MEM)
  429. MOUNT:
  430.     mount(NEW|S||)
  431. START:
  432.     enter(PATIENT.NAME||||Y|Y|N|||N)
  433.     find(G|PATIENT.NAME|START|)
  434.     PROC_REF = (RECORD.NUMBER)
  435.     find(M|PROC_REF|START2CL|)
  436.     NY = ("")
  437.     pmsg("DO YOU WANT TO UPDATE THE MEMOS FIRST:"|10|20|N|N|S|)
  438.     enter(NY|"YN"|||Y|Y|N|50|20|N)
  439.     if NY = ("Y") goto UPMEMO
  440.     clrlne(1|20)
  441. START2:
  442.     gosub LINE
  443.     if CTR2 = (0) then CTR2 = (1)
  444. SATRT3:
  445.     MEM_DOC = ("")
  446.     for(CTR|CTR2|6|1)
  447.         {
  448.         PROC_DATE[CTR] = (TD)
  449.         PROC_UP = (TD)
  450.         enter(PROC_DATE[CTR]|||SATRT3|N|N|N|||N)
  451.         enter(PROC[CTR]||||Y|Y|N|||N)
  452.         enter(PROC_DOC[CTR]|"12345"|||Y|Y|N|||N)
  453.         MEM_DOC = (PROC_DOC[CTR])
  454.         enter(PROC_OP[CTR]||||Y|Y|N|||N)
  455.         if PROC_OP[CTR] = ("") reent
  456.         if PROC_EX[CTR] = ("") do
  457.             {
  458.             PROC_REF = (RECORD.NUMBER)
  459.             PROC4 =mid(PROC[CTR]|1|1|)
  460.             if PROC4 = ("*") do
  461.                 {
  462.                 PROC_EX[CTR] = ("X")
  463.                 gosub STARTAGAIN
  464.                 save(PROCEDE|N|N)
  465.                 find(M|PROC_REF||)
  466.                 }
  467.             enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  468.             enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  469.             enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  470.             enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  471.             enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  472.             enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  473.             }
  474.         }
  475.     gosub LINE
  476.     for(CTR|1|6|1)
  477.         {
  478.         if PROC[CTR] = ("") then PROC_DATE[CTR] = (0)
  479.         }
  480.     goto SATRT3
  481. SAVE_MEMO:
  482.     for(CTR|1|6|1)
  483.         {
  484.         if PROC[1] = ("") do
  485.             {
  486.             clr(PROCEDE|B)
  487.             goto START
  488.             }
  489.         if PROC[CTR] = ("") do
  490.             {
  491.             PROC_DATE[CTR] = (0)
  492.             PROC_OP[CTR] = ("")
  493.             PROC_DOC[CTR] = ("")
  494.             PROC_DONE[CTR] = ("")
  495.             }
  496.         }
  497.     if PROC_REF = (0) goto START
  498.     PROC_REF = (RECORD.NUMBER)
  499.     if PROC_REF = (0) goto START
  500.     save(PROCEDE|Y|Y|)
  501.     MEM_DOC = ("")
  502.     goto START
  503. EXIT_MEM:
  504.     if PROC[1] = ("") goto RUNPATREC
  505.     for(CTR|1|6|1)
  506.         {
  507.         if PROC[CTR] = ("") do
  508.             {
  509.             PROC_DATE[CTR] = (0)
  510.             PROC_OP[CTR] = ("")
  511.             PROC_DOC[CTR] = ("")
  512.             PROC_DONE[CTR] = ("")
  513.             }
  514.         }
  515.     if PROC_REF > (0) then save(PROCEDE|N|Y)
  516. RUNPATREC:
  517.     trap(S|G|SAVE_RECS)
  518.     trap(D|I)
  519.     trap(C|G|CLR_RECS)
  520.     trap(Q|G|EXIT)
  521.     trap(J|G|RUN_MEMO)
  522.     mount(SCREEN2|S)
  523.     gosub STARTALLXX
  524.     goto PAT.NAME2
  525. LINE:
  526.     for(CTR2|1|6|1)
  527.         {
  528.         if PROC[CTR2] = ("") do
  529.             {
  530.             if CTR2 = (6) do
  531.                 {
  532.                 pops
  533.                 goto SATRT3
  534.                 }
  535.             ret
  536.             }
  537.         }
  538.     CTR = (2)
  539.     if PROC_DATE[1] = (TD) do
  540.         {
  541.         for(CTR3|1|6|1)
  542.             {
  543.             enter(PROC_DONE[CTR3]|" Y"|||Y|Y|N|||N)
  544.             }
  545.         pops
  546.         goto SAVE_MEMO
  547.         }
  548.     for(CTR2|1|5|1)
  549.         {
  550.         PROC[CTR2] = (PROC[CTR])
  551.         PROC_DATE[CTR2] = (PROC_DATE[CTR])
  552.         PROC_OP[CTR2] = (PROC_OP[CTR])
  553.         PROC_DOC[CTR2] = (PROC_DOC[CTR])
  554.         PROC_DONE[CTR2] = (PROC_DONE[CTR])
  555.         CTR = (CTR+1)
  556.         }
  557.     PROC[6] = ("")
  558.     PROC_DATE[6] = (0)
  559.     PROC_OP[6] = ("")
  560.     PROC_DOC[6] = ("")
  561.     PROC_DONE[6] = ("")
  562.     PROC_EX[6] = ("")
  563.     goto LINE
  564.     ret
  565. UPARROW:
  566.     CTR2 = (CTR2-1)
  567.     CTR = (CTR2)
  568.     ret
  569. STARTAGAIN:
  570.     trap(%|I)
  571.     trap(J|I)
  572.     trap(Q|G|EXITX)
  573.     trap(U|I)
  574.     trap(C|I)
  575.     trap(S|I)
  576.     saves(1)
  577.     window(20|15|5|40)
  578.     trap(Q|G|EXITX)
  579.     find(B|HEADING||)
  580.     pmsg("IS IT EMERGENCY:"|1|1|N|N|S|)
  581.     enter(ISIT_EMER|"YN"|||Y|Y|N|20|1|N)
  582.     if ISIT_EMER = ("Y") goto SCR2
  583.     gosub SCREEN2
  584.     CLIN_NUM = (CLIN_NUM)
  585.     pmsg("ENTER SPECIALTY:"|1|2|N|N|S|)
  586.     enter(CLIN_NUM||||N|Y|N|20|2|N)
  587. ADDER:
  588.     REF_COD = (MEM_DOC)
  589.     find(M|REF_COD|EXIT|)
  590.     if ISIT_EMER <> ("Y") do
  591.         {
  592.         CLIN_REF[CLIN_NUM] = (CLIN_REF[CLIN_NUM]+1)
  593.         }
  594.     else
  595.         {
  596.         EMERG_REF[EMERG_NUM] = (EMERG_REF[EMERG_NUM]+1)
  597.         }
  598.     save(REFER|N|Y)
  599.     CLIN_NUM = (0)
  600.     CON_NUM = (0)
  601.     EMERG_NUM = (0)
  602.     ISIT_EMER = ("")1
  603.     redsp(1)
  604.     trap(%|D)
  605.     trap(J|G|EXIT_MEM)
  606.     trap(U|D)
  607.     trap(Q|G|EXIT)
  608.     ret
  609. SCREEN2:
  610.     saves(2)
  611.     window(1|25|24|78)
  612.     for(REF_CTR|1|22|1)
  613.         {
  614.         pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  615.         }
  616.     CON_CTR = (REF_CTR+1)
  617.     for(REF_CTR|1|22|1)
  618.         {
  619.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  620.         CON_CTR = (CON_CTR+1)
  621.         }
  622.     pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  623.     enter(CLIN_NUM||||N|Y|N|65|13|N)
  624.     if CLIN_NUM = (0) reent
  625.     if CLIN_NUM > (44) reent
  626.     redsp(2)
  627.     ret
  628. SCREEN3:
  629.     saves(2)
  630.     window(1|25|24|78)
  631.     for(REF_CTR|1|22|1)
  632.         {
  633.         pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  634.         }
  635.     CON_CTR = (REF_CTR+1)
  636.     for(REF_CTR|1|22|1)
  637.         {
  638.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  639.         CON_CTR = (CON_CTR+1)
  640.         }
  641.     pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  642.     enter(EMERG_NUM||||N|Y|N|65|13|N)
  643.     if EMERG_NUM = (0) reent
  644.     if EMERG_NUM > (44) reent
  645.     redsp(2)
  646.     ret
  647. SCR2:
  648.     gosub SCREEN3
  649.     EMERG_NUM = (EMERG_NUM)
  650.     pmsg("ENTER SPECIALTY EMERGENCY:"|1|3|N|N|S|)
  651.     enter(EMERG_NUM||||N|Y|N|30|3|N)
  652.     goto ADDER
  653. EXITX:
  654.     goto STARTCHK
  655. UPMEMO:
  656.     enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  657.     enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  658.     enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  659.     enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  660.     enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  661.     enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  662.     clrlne(1|22)
  663.     goto START2
  664. START2CL:
  665.     clr(PROCEDE|B)
  666.     goto START2
  667. PAT.NAME2:
  668.     goto NO_DIAB3
  669. PRINT:
  670.     mount(CHKREP|R|P)
  671.     pchr(P|1)
  672.     gosub GET_MEM
  673.     pfmt(1|||N|N|)
  674.     pfmt(2|||N|N|)
  675.     pfmt(3|||N|N|)
  676.     pfmt(4|||N|N|)
  677.     pfmt(5|||N|N|)
  678.     pfmt(6|||N|N|)
  679.     pfmt(7|||N|N|)
  680.     fld_lctr = (0)
  681.     gosub PRINTRP
  682.     fld_lctr = (fld_lctr+7)
  683.     if fld_lctr => (23) goto MOUNTAGAIN
  684.     if REF_CHECK = ("Y") do
  685.         {
  686.         pmsg(%14;"                   REFERRED TO DOCTOR"|||N|N|P|)
  687.         fld_lctr = (fld_lctr+1)
  688.         }
  689.     if fld_lctr => (22) goto MOUNTAGAIN
  690.     CTR3 = (22-fld_lctr)
  691.     for(CTR2|1|CTR3|1)
  692.         {
  693.         pmsg(""|||N|N|P|)
  694.         }
  695.     pfmt(8|||N|N|)
  696.     pblnk(1)
  697. MOUNTAGAIN:
  698.     mount(SCREEN2|S)
  699.     gosub STARTALLXX
  700.     ret
  701. PRINTRP:
  702.     RP.REF = (RECORD.NUMBER)
  703.     find(M|RP.REF|RETPRINT|)
  704.     CTR = (1)
  705. TESTALLX:
  706.     fld_lctr = (fld_lctr+1)
  707.     if CTR = (12) goto RETPRINT
  708.     AOD[CTR] = (AUTO.ON.DEMAND)
  709.     MN[CTR] = (MEDICATION)
  710.     DO[CTR] = (DOSE)
  711.     QU[CTR] = (QUANTITY)
  712.     DS[CTR] = (DIRECTIONS)
  713.     QTY[CTR] = (RP.DISP.QTY)
  714.     ISN[CTR] = (ISSUE.NO)
  715.     trim(MN[CTR]|T)
  716.     trim(QU[CTR]|T)
  717.     just(QU[CTR]|L)
  718.     trim(DO[CTR]|T)
  719.     just(DO[CTR]|L)
  720.     trim(DS[CTR]|T)
  721.     just(DS[CTR]|L)
  722.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|||N|N|P|)
  723.     find(N|RP|RETPRINT|)
  724.     if RP.REF <> (RECORD.NUMBER) goto RETPRINT
  725.     CTR = (CTR+1)
  726.     goto TESTALLX
  727. RETPRINT:
  728.     PROC_REF = (RECORD.NUMBER)
  729.     find(M|PROC_REF|RETPRINTX|)
  730.     for(CTR2|1|6|1)
  731.         {
  732.         if PROC[CTR2] = ("") goto RETPRINTX
  733.         pmsg(PROC_DATE[CTR2];"   ";PROC[CTR2]|||N|N|P|)
  734.         fld_lctr = (fld_lctr+1)
  735.         }
  736. RETPRINTX:
  737.     ret
  738. STARTALLXX:
  739.     if RECORD.NUMBER = (0) goto ENDITXXX
  740.     COD.REF = (RECORD.NUMBER)
  741.     find(M|COD.REF|NEXTALL2XX|)
  742.     MEM_RECD = (COD.D[4])
  743.     MEM_RECT = (COD.D[6])
  744.     MEM_RECB = (COD.D[9])
  745. NEXTALL2XX:
  746.     RP.REF = (RECORD.NUMBER)
  747.     find(M|RP.REF|ENDITXXX|)
  748.     CTR = (1)
  749. TESTALLOP:
  750.     if CTR = (12) goto ENDITXXX
  751.     AOD[CTR] = (AUTO.ON.DEMAND)
  752.     MN[CTR] = (MEDICATION)
  753.     DO[CTR] = (DOSE)
  754.     QU[CTR] = (QUANTITY)
  755.     DS[CTR] = (DIRECTIONS)
  756.     QTY[CTR] = (RP.DISP.QTY)
  757.     ISN[CTR] = (ISSUE.NO)
  758.     trim(MN[CTR]|T)
  759.     trim(QU[CTR]|T)
  760.     just(QU[CTR]|L)
  761.     trim(DO[CTR]|T)
  762.     just(DO[CTR]|L)
  763.     trim(DS[CTR]|T)
  764.     just(DS[CTR]|L)
  765.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  766.     CTR2 = (CTR+11)
  767.     find(N|RP|ENDITXXX|)
  768.     if RP.REF <> (RECORD.NUMBER) goto ENDITXXX
  769.     CTR = (CTR+1)
  770.     goto TESTALLOP
  771. ENDITXXX:
  772.     ret
  773. ALC_HLP:
  774.     MESSAGE[1] = ("ENTER NUMBER OF PINTS A WEEK - 1 PUB GIN=1/2 PINT")
  775.     NUM.MSG = (1)
  776.     gosub PRT.MSG
  777.     ret
  778. ANG_HLP:
  779.     MESSAGE[1] = ("ENTER NUMBER OF ATTACKS PER WEEK")
  780.     NUM.MSG = (1)
  781.     gosub PRT.MSG
  782.     ret
  783. WEIGHT:
  784.     MESSAGE[1] = ("THERE IS AN OBESITY PROBLEM HERE")
  785.     NUM.MSG = (1)
  786.     gosub PRT.MSG
  787.     ret
  788. OED_HLP:
  789.     MESSAGE[1] = ("Graded from 0 to 3")
  790.     NUM.MSG = (1)
  791.     gosub PRT.MSG
  792.     ret
  793. ONOWN_HLP:
  794.     MESSAGE[1] = ("LIVING ALONE Y OR N")
  795.     NUM.MSG = (1)
  796.     gosub PRT.MSG
  797.     ret
  798. EYES_HLP:
  799.     MESSAGE[1] = ("(O)K,(S)PECS,(P)ARTIAL,(B)LIND")
  800.     NUM.MSG = (1)
  801.     gosub PRT.MSG
  802.     ret
  803. EARS_HLP:
  804.     MESSAGE[1] = ("(O)K,(D)EAF,(A)ID")
  805.     NUM.MSG = (1)
  806.     gosub PRT.MSG
  807.     ret
  808. WALK_HLP:
  809.     MESSAGE[1] = ("CAPABILITY IN MILES OR PART OF A MILE")
  810.     NUM.MSG = (1)
  811.     gosub PRT.MSG
  812.     ret
  813. MOBIL_HLP:
  814.     MESSAGE[1] = ("AROUND HOME -(G)OOD,(P)OOR,(W)HEELCHAIR,(B)EDRIDDEN")
  815.     NUM.MSG = (1)
  816.     gosub PRT.MSG
  817.     ret
  818. UP_HLP:
  819.     MESSAGE[1] = ("CAN THE PATIENT MANAGE STAIRS Y/N")
  820.     NUM.MSG = (1)
  821.     gosub PRT.MSG
  822.     ret
  823. MEM_HLP:
  824.     MESSAGE[1] = ("(G)OOD,(P)OOR,(B)AD,(D)EMENTED")
  825.     NUM.MSG = (1)
  826.     gosub PRT.MSG
  827.     ret
  828. BOWELS_HLP:
  829.     MESSAGE[1] = ("(O)K,(C)ONSTIPATED,(D)IARRHOEA,(I)NCONTINENT,O(S)TOMY")
  830.     NUM.MSG = (1)
  831.     gosub PRT.MSG
  832.     ret
  833. BLAD_HLP:
  834.     MESSAGE[1] = ("(C)ONTINENT,(I)NCONTINENT,C(A)THETER")
  835.     NUM.MSG = (1)
  836.     gosub PRT.MSG
  837.     ret
  838. MEDIC_HLP:
  839.     MESSAGE[1] = ("? ON MEDICATION Y/N")
  840.     NUM.MSG = (1)
  841.     gosub PRT.MSG
  842.     ret
  843. HOME_HLP:
  844.     MESSAGE[1] = ("HOME HELP - (Y)ES,(N)O,(R)EQUIRED")
  845.     NUM.MSG = (1)
  846.     gosub PRT.MSG
  847.     ret
  848. MEALS_HLP:
  849.     MESSAGE[1] = ("MEALS ON WHEELS - (Y)ES,(N)O,(R)EQUIRED")
  850.     NUM.MSG = (1)
  851.     gosub PRT.MSG
  852.     ret
  853. NURSE_HLP:
  854.     MESSAGE[1] = ("NURSE IN ATTENDANCE - Y - N - (R)EQUIRED")
  855.     NUM.MSG = (1)
  856.     gosub PRT.MSG
  857.     ret
  858. HOUSE_HLP:
  859.     MESSAGE[1] = ("(H)OUSE,(F)LAT,PART(3),(N)URSING HOME,(O)THER")
  860.     NUM.MSG = (1)
  861.     gosub PRT.MSG
  862.     ret
  863. GET_MEM:
  864.     if EYES = ("O") then MEM_EYES = ("OK")
  865.     if EYES = ("S") then MEM_EYES = ("SPECS")
  866.     if EYES = ("P") then MEM_EYES = ("PART")
  867.     if EYES = ("B") then MEM_EYES = ("BLIND")
  868.     if EARS = ("O") then MEM_EARS = ("OK")
  869.     if EARS = ("D") then MEM_EARS = ("DEAF")
  870.     if EARS = ("A") then MEM_EARS = ("AID")
  871.     if MOBILITY = ("G") then MEM_MOBIL = ("GOOD")
  872.     if MOBILITY = ("P") then MEM_MOBIL = ("POOR")
  873.     if MOBILITY = ("W") then MEM_MOBIL = ("WHEEL")
  874.     if MOBILITY = ("B") then MEM_MOBIL = ("BED")
  875.     if MEMORY = ("G") then MEM_MEM = ("GOOD")
  876.     if MEMORY = ("P") then MEM_MEM = ("POOR")
  877.     if MEMORY = ("B") then MEM_MEM = ("BAD")
  878.     if MEMORY = ("D") then MEM_MEM = ("DEMT")
  879.     if BOWELS = ("O") then MEM_BOWELS = ("OK")
  880.     if BOWELS = ("C") then MEM_BOWELS = ("CONS")
  881.     if BOWELS = ("D") then MEM_BOWELS = ("DIAR")
  882.     if BOWELS = ("I") then MEM_BOWELS = ("INCT")
  883.     if BOWELS = ("S") then MEM_BOWELS = ("OSTY")
  884.     if BLADDER = ("C") then MEM_BLAD = ("CONT")
  885.     if BLADDER = ("I") then MEM_BLAD = ("INCT")
  886.     if BLADDER = ("A") then MEM_BLAD = ("CATH")
  887.     if HOUSE = ("H") then MEM_HOUSE = ("HOUSE")
  888.     if HOUSE = ("F") then MEM_HOUSE = ("FLAT")
  889.     if HOUSE = ("3") then MEM_HOUSE = ("PART 3")
  890.     if HOUSE = ("N") then MEM_HOUSE = ("NURSE HOME")
  891.     if MEM_HOUSE = ("O") then HOUSE = ("OTHER")
  892.     ret
  893. ;DRUG     05:01:17 PM  14/ 4/90   |
  894. \STNEW     
  895.  
  896.  
  897.  
  898.  
  899.  
  900.                                  PROCEDURE ENTRY
  901.           ╔═══════════════════════════════════════════════════════════════╗
  902.           ║ &                          <&                     <&         <║
  903.           ║                                                               ║
  904.           ║  Date             Procedure                        Dr Rec Done║
  905.           ║ &         &                                        & &    &   ║
  906.           ║ &         &                                        & &    &   ║
  907.           ║ &         &                                        & &    &   ║
  908.           ║ &         &                                        & &    &   ║
  909.           ║ &         &                                        & &    &   ║
  910.           ║ &         &                                        & &    &   ║
  911.           ╚═══════════════════════════════════════════════════════════════╝
  912.           Esc - Exit and Save V=1 G=2 P=3 N=4 T=5 * for clinic,xray,path
  913.               Y=DONE S=SEE DR C=COL.SCRPT R=REPEAT O=OTHER N=NORMAL
  914.  
  915.  
  916.  
  917.  
  918.  
  919. \
  920. PATIENT.NAME
  921. ADDRESS1
  922. DATE.OF.BIRTH
  923. PROC_DATE[1]
  924. PROC[1]
  925. PROC_DOC[1]
  926. PROC_OP[1]
  927. PROC_DONE[1]
  928. PROC_DATE[2]
  929. PROC[2]
  930. PROC_DOC[2]
  931. PROC_OP[2]
  932. PROC_DONE[2]
  933. PROC_DATE[3]
  934. PROC[3]
  935. PROC_DOC[3]
  936. PROC_OP[3]
  937. PROC_DONE[3]
  938. PROC_DATE[4]
  939. PROC[4]
  940. PROC_DOC[4]
  941. PROC_OP[4]
  942. PROC_DONE[4]
  943. PROC_DATE[5]
  944. PROC[5]
  945. PROC_DOC[5]
  946. PROC_OP[5]
  947. PROC_DONE[5]
  948. PROC_DATE[6]
  949. PROC[6]
  950. PROC_DOC[6]
  951. PROC_OP[6]
  952. PROC_DONE[6]
  953. \
  954. \R CHKREP  
  955. OVER 75 CHECK: &                          :&          [& ] ON &        BY &      Dr.&  Drugs Chkd:& Regd:&
  956. =====================================================================================================================
  957. Onown:&   Eyes:&      Ears:&     Walking:&       Mobility:&      Stairs:&  Memory:&     Bowels:&     Bladder:&
  958. On Medctn:&   Home Help:&   Meals on wheels:&    Nurse:&               House type:&             FEV:&
  959. Smokes :&    Exrcise:&    Alcohol:&    Angina:&    Diet:&   Weight:&        Height:&       Ideal Wt:&      Oed:&
  960. Protein:&      Sugar:&      Drs. Rec. BP:&  /&     BP Chk Num:& BP:&  /&      Standing Sys:&     Pulse:&  /&/&
  961. Nurses comments:&                              &                              Nurses Sig:
  962. Problem list Updated:&  Doctors Sig:
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.  
  994.  
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003. \
  1004. PATIENT.NAME
  1005. DATE.OF.BIRTH
  1006. AGE
  1007. TD
  1008. CHECK_OP
  1009. CHK_DOC
  1010. DRUGS_CHECKED
  1011. PAT.REG
  1012. ONOWN
  1013. MEM_EYES
  1014. MEM_EARS
  1015. WALK
  1016. MEM_MOBIL
  1017. UP
  1018. MEM_MEM
  1019. MEM_BOWELS
  1020. MEM_BLAD
  1021. MEDIC
  1022. HOME_HELP
  1023. MEALS
  1024. NURSE
  1025. MEM_HOUSE
  1026. FEV
  1027. SMOK
  1028. EXERCISE
  1029. ALCOHOL
  1030. ANGINA
  1031. DIET
  1032. WT1
  1033. WT2
  1034. IDEAL_WT
  1035. OEDEMA
  1036. PROT
  1037. SUG
  1038. DOC_BP1
  1039. DOC_BP2
  1040. BP_CHECK_NUM
  1041. BP1
  1042. BP2
  1043. BP1S
  1044. PULSE
  1045. REG
  1046. APEX
  1047. COMMENT1
  1048. COMMENT2
  1049. TICK[5]
  1050. \
  1051. \SSSCREEN2 
  1052. OVER 75 CHECK    p p p p p p p p p p p p p p p p p p p p p p p p p p p  p p p p p p p p p p( p p) on  p p p p p p p p by  p p p p p p================
  1053. =============================================================== Dr.Num:p p Drugs Checked:p p Referre
  1054. d to Dr: p Nxt Chk:p p p p p p p p p Print N/Y:p p          ================================================
  1055. ===============================   Onown: p     Stairs: p     HH: p    Smokes:p p p     Wt:p p p p p p p    Dr
  1056. .BP:p p p p/ p p p       Eyes : p     Memory: p    MOW: p    Exerc :p p p     Ht:p p p p p p p   Chk.No:p p           
  1057.   Ears : p     Bowels: p  Nurse: p    Alcoh :p p p     IW:p p p p p p p       BP:p p p p/ p p p     Walking: p p p p p p B
  1058. ladr: p  House: p    Angina:p p p     Pr:p p p p p     St.Sys:p p p p         Mobilty: p    Medicat: p  Fev: p p p 
  1059.    Diet  :p p      Su:p p p p p     Pulse:p p p p:p p:p p p p    Com1  :p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p     Com2:p p
  1060.  p p p p p p p p p p p p p p p p p p p p p p p p p p p p p   ================================================================
  1061. ==============                                                                                  
  1062.                                                                                                 
  1063.                                                                                                 
  1064.                                                                                                 
  1065.                                                                                                 
  1066.                                                                                                 
  1067.                                                                                                 
  1068.                                                                                                 
  1069.                                                                                                 
  1070.                                                                                                 
  1071.                                                                                                 
  1072. \
  1073. PATIENT.NAME       27 A 17 1
  1074. DATE.OF.BIRTH      10 D 45 1
  1075. AGE                 2 N 56 1
  1076. CHECK_DATE          8 S 63 1
  1077. CHECK_OP            6 A 75 1
  1078. CHK_DOC             1 N  8 3
  1079. DRUGS_CHECKED       1 A 24 3
  1080. REF_CHECK           1 A 41 3
  1081. NEXT_CHECK          8 S 51 3
  1082. YES.NO              1 A 70 3
  1083. ONOWN               1 A  9 5
  1084. UP                  1 A 22 5
  1085. HOME_HELP           1 A 31 5
  1086. SMOK                2 N 43 5
  1087. WT1                 52N 53 5
  1088. DOC_BP1             3 N 69 5
  1089. DOC_BP2             3 N 73 5
  1090. EYES                1 A  9 6
  1091. MEMORY              1 A 22 6
  1092. MEALS               1 A 31 6
  1093. EXERCISE            2 N 43 6
  1094. WT2                 52N 53 6
  1095. BP_CHECK_NUM        1 N 69 6
  1096. EARS                1 A  9 7
  1097. BOWELS              1 A 22 7
  1098. NURSE               1 A 31 7
  1099. ALCOHOL             2 N 43 7
  1100. IDEAL_WT            52N 53 7
  1101. BP1                 3 N 69 7
  1102. BP2                 3 N 73 7
  1103. WALK                52N  9 8
  1104. BLADDER             1 A 22 8
  1105. HOUSE               1 A 31 8
  1106. ANGINA              2 N 43 8
  1107. PROT                4 A 53 8
  1108. BP1S                3 N 69 8
  1109. MOBILITY            1 A  9 9
  1110. MEDIC               1 A 22 9
  1111. FEV                 3 N 29 9
  1112. DIET                1 A 43 9
  1113. SUG                 32N 53 9
  1114. PULSE               3 N 68 9
  1115. REG                 1 A 72 9
  1116. APEX                3 N 74 9
  1117. COMMENT1           30 A  810
  1118. COMMENT2           30 A 4810
  1119. \
  1120. \STCHECK   
  1121.  
  1122.  
  1123.  
  1124.  
  1125.  
  1126.  
  1127.                            DO THE FOLLOWING FIRST
  1128.              ╔═══════════════════════════════════════════════════╗
  1129.              ║  1.CHECK DETAILS ON AGE SEX REGISTER ARE CORRECT. ║
  1130.              ║  2.ENTER SMEAR DETAILS.                           ║
  1131.              ║  3.ENTER IMMUNISATION DETAILS.                    ║
  1132.              ║  4.FIND OUT ABOUT REPEAT PRESCRIBING DRUGS.       ║
  1133.              ║  5.UPDATE THE PROBLEM LIST                        ║
  1134.              ╚═══════════════════════════════════════════════════╝
  1135.                  GO TO AGE/SEX RECALLS Y/N:&
  1136.  
  1137.  
  1138.  
  1139.  
  1140.  
  1141.  
  1142.  
  1143.  
  1144.  
  1145. \
  1146. YES.NO
  1147. \
  1148. \STDRUGSCR 
  1149.               Digoxin      B-blockers    Diuretics  Tnt + Ca      Ace Inhib
  1150.    ╔═════════════════════════════════════════════════════════════════════════╗
  1151.    ║CHECK║PULSE + APEX    ║FEV          ║OEDEMA    ║ANGINA       ║           ║
  1152.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1153.    ║TESTS║DIGOXIN LEVEL   ║U&E          ║U&E       ║NONE         ║U&E        ║
  1154.    ║     ║U & E           ║             ║URIC ACID ║             ║           ║
  1155.    ║     ║                ║             ║BS        ║             ║           ║
  1156.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1157.    ║SIDE ║NAUSEA,VOMIT    ║COLD EXTREMS ║GOUT      ║HEADACHE     ║DROP       ║
  1158.    ║     ║DIZZY,COLOR VIS.║             ║          ║             ║DRY COUGH  ║
  1159.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1160.    ║REFER║PULSE >120 <56  ║PULSE <50    ║DYSPNEA+  ║ANGINA WORSE ║           ║
  1161.    ║     ║                ║FEV 33% LESS ║          ║             ║           ║
  1162.    ╚═════════════════════════════════════════════════════════════════════════╝
  1163.    Pulse:&  /&/&   Fev:&   Oedema:& angina:&  com:&
  1164.                                               com:&
  1165.  
  1166.  
  1167.  
  1168.  
  1169.  
  1170.  
  1171.  
  1172.  
  1173. \
  1174. PULSE
  1175. REG
  1176. APEX
  1177. FEV
  1178. OEDEMA
  1179. ANGINA
  1180. COMMENT1
  1181. COMMENT2
  1182. \
  1183.